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FILEIO = Central file 1/0 module 16-Sep-1984 ¢ 99:31:05 VAX-11 Bliss-32 V4.0-7 Page 1. 
14-Sep-1984 12:23:06 NTE SUMENASTER-CED T.SR ( FILEIO.BLI;1 (1) 

001 ZTITLE Ff ILELO - Central file 1/0 module’ 

Oe MODULE EDTSFILEIO ( ' Central file 1/0 routine for EDT 

SR? {DENT = 'v04-000' ! File: FILEIO.BLI Edit: JBS1062 

BR? BEGIN 

B8 PITITITILTILILLL LLL ii Li iiiiiiiiiiiiiiiiiiiiiiiiiiiii ii 

'e 

00 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 

01 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

01 'w ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copie. 
ie oy IN ACCORDANCE A THE TERMS OF SUCH sottcint” AND WITH THE 


® 
® 
® 
= 
® 
® 
a 
: 5 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
& 
® 
SI 
® 
* 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


tt DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


See RRR R RARER AAA AAEREA ATER AAEA AERA AAEAAAAAARAARAAARERE AREER 
' 


'e¢ 
! FACILITY: EDT == The DEC Standard Editor 


| 
i ABSTRACT: | 
This is the central file i/o routine used by EDT. | 
i ENVIRONMENT: Runs in user mode on VAX/VMS and non-privileged PDP-11 | 
i AUTHOR: Shelly T. Solomon, CREATION DATE: 07-Dec-1981 
i MODIFIED BY: 


Original. STS 25-Dec-1981 
Change module name to GOTSFILELO. STS 25- ogye" 196t 
Add calls for include file 6-Dec-1981 | 
Add require files for 11 ate one, TS conpeg 1981 
5 d Linkage attribute go, ceyt 0-Dec-1 
nal any errors, 
has code or op ening ont dant "31 13-Jan-1982 | 
DSCSA “POINT ER peer TS 14- . n-1982 
Add gets éng puts STS 15-Jan-19 
change e opening journal file to open in-out ot A Jan- 1988 
Fined undefined sysbol EDT$Sopn_inout ” 1j 3 an-1982 
output filenames with error a siages. STS 1b-Jan-t 
Change the defaults ing of nal file n nang: STS 21-Jan-1982 
Add check to see if file ; *y C” tornet. STS 22-Jan-1982 
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: #86458 8038 7% 1“812 - fix journal file name for 11's. STS 26-Jan-1982 ‘ 
; WF 059 1 ! 1-016 = Add dot to 4 pe gerenecer passed with journal file. : 
3; & 060 1! STS 28-Jan-198 ; 
3; 0 (6) 061 1! 1-017 - Pass RHB info down to 11 i/o routines. STS 02-Feb-1982 ; 
= O66 1 ! 1-018 = Take out extra dot in get on 11's, also : 
; 6 0065 1! fix include rab. STS 05-Feb-1982 | " 
an 0064 1! 1-038 - add flush for journal buffer. STS 11-Feb-19 § : 
; & One? 1 ! 1-020 = Take out call to edt$$get_fnam. STS 12-Feb-1982 ; 
; © 066 1 ! 1-021 = Pass correct status back fo caller. STS 26-Feb-198 : 
; OF 0067 1! 1-0 § - Add Literals for callable parameters. STS 08-Mar-1982 : 
; «68 0068 1 | 1-023 - Fix status passed on opening write file. STS 10-Mar-1982 : 
: 9 534 1 ! 1-024 = Rearrange interface to EDT$IO to improve the rationality , 
; 0 070 1! of file naming. JBS 25-Mar-1 ; : 
: 71 0071 1! 1-8 5 = Worry about norwatoncere input files. JBS 26-Mar-1982 | ‘ 
; £ Bare 1! 1- § - Correct a typo. JBS 27-Mar-1982 : 
mae . 0075 1 ! 1-027 = Make the new file handling Logic work on the PDP-11. JBS 29-Mar-1982 | : 
3; 674 0074 1 ! 1-028 - Use keaperery file for WRITE and EXIT and then Rename it. SMB 31-Mar-1982 ; 
: 75 0075 1 | 1-029 = Add related file names for the PDP-11. JBS 31-Mar-1 | ; 
; #676 0076 1 ! 1-050 = Distinguish two cases of output open for journal files on the PDP-11 ; 
;. @ 0077 1! and add a flush counter to improve PDP-11 performance. JBS 01-Apr-1982 : 
; 0078 1 ! 1-031 - Rearrange file name handling for the journal file. JBS 02-Apr-19 | ; 
; #679 0079 1! 1-035 - Make more modifications for WRITE/EXIT to cong files. SMB 02-Apr-1982 : 
; 80 0080 1 ! 1-033 = Cannot use REF in STRING_DESC. JBS 03-Apr-1982 : 
; ST 0081 1 ! 1-034 - Fix bugs in PDP-11 opening of output files. SMB 06-Apr-1982 ’ 
; 682 0082 1 ! 1-035 - Add rename for PDP-11's and CLOSE_DEL for output files. SMB 08-Apr-1982 . 
; #83 0083 1! 1-039 - Convert PDP-11 filenames to uppercase. SMB 12-Apr-1982 F 
; 84 0084 1 ! 1-037 - Take out fix 1-036(move to LWRITE)-fix error message filename for VAX. SMB 13-Apr-1982 ; 
; 0085 1 ! 1-038 - Always return status when closing PDP-11 files. JB8S 09-Apr-1982 : 
; 686 0086 1 ! 1-039 = Reverse the attributes flag. JBS 12-Apr-1982 : 
; Of 0087 1 ! 1-040 - Merge the last four edits, which were done independent} . JBS 15-Apr-1982 : 
3 0088 1 ! 1-041 = Add a parse before opening output files. SMB 15-Apr-1982 3 
; 0089 1! eo - Put back Line accidently deleted for filename storage. SMB 16-Apr-1982 : 
: 90 0090 1 ! 1-045 - Conditionalize the conversion to uppercase. 2-Apr-198 ; 
3 1 0091 1 ! 1-044 - Restrict renaming to disks or DECtapes only. SMB 26-Apr-1 8 : 
; § 0092 1 ! 1-045 = Change the ordinals of global literals for file types. SMB 19-May-1982 F 
; 93 0095 1 ! 1-046 = Add some comments. STS 19-May-1 3 
:; «694 0094 1 ! 1-047 = Clean up the magic numbers. JBS 25-May-1 | : 
; 0095 1 ! 1-048 - Don't use special Linkage on 11's. STS 03-Jun-1982 ; : 
ae 0096 1 ! 1-049 = On OPEN, use RHB as the default name. Also, don't use special Linkages on : 
s 0097 1! VAX either, since the special .inkoge used 4 6 a is genget tele with : 
; | «98 0098 1! the standard VAX/VMS Linkage conventions. JBS_15-Jun-198 | 3 
; 99 0099 1 ! 1-050 - Implement the new file defaulting rules. JBS 17-Jun-1982 3 
: 100 0100 1 ! 1-051 = Signal any bad status from flushing the journal file. STS 30-Jun-1982 | : 
3; 101 0101 1! 1- 26 - Fix bad parameter pass in open for output with yt related names. SMB 06-Jul-1982 3 
: 108 B06 1 ! 1-055 = Add a special check for RSTS disk files. SMB " -Jul-1 3 
; 10 0103 1 ! 1-054 = Store status on PDP-11 open for output. SMB 19-Jul-19 3 
3; 104 0104 1 ! 1-055 = Check for errors when deleting the journal file. JBS 22-Feb-1983 | : 
: 105 0105 1! 1+ 2$ - Don't maximize version number on WRITE. JBS 04-Apr-19 : 
: 106 8108 1 ! 1-057 = Fix a typo in PDP-11 output fil opening, JBS 06-Apr-1983 | 3 
: 107 0107 1 ! 1-058 - Fix the message given when the journal file fails to gen for output. JBS 02-May-1983 3 
3; 108 108 1 ! 1-059 - Improve the eppearance of the | sting. JBS 14-Jun-19 3 
3; 109 109 1 ! 1-060 - On VMS, if the EXIT file name is emp Y 3 
: 110 110 1: use the resultant name from opening the input file. JBS 29-Jul-1983 : 
36111 0111 1 ! 1-061 = Fix bug in edit 060--the input name was being discarded too soon if the 3 
: ie Bits 1! output open happened after the input file was closed. JBS 51-Aug-198 : 
s 6UN 1135 1 ! 1-062 - Complete edit by gyOr ng the input file name even if the file : 
3 (116 0114 1! does not open. JBS 06-Sep-198 3 
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REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSFILEIO; 


INCLUDE FILES: 


| 
| 
| 
| 
REQUIRE 'EDTSRC:EDTREQ'; | 
ZIF XBLISS (BLISS32) 

XTHEN 
REQUIRE “EDTSRC:SYSSYM'; | 
“FI 


' 
MACROS: 
i + i 


i Macro for the file type used as a constant. This is defined as a macro 
so we can use ZCHARCOUNT to pass the length of the string. 


WN S OONA WN EWN 8 ODN UE WN OO ONOAUE WN OVDONOUSWN OOO 
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ee cd ed ed od = dd 2 


i <BLF /NOF ORMAT> 
RO 
TEMP_TYP = '. TMP’ %; ! File type for temporary output files (before being renamed) 

: <BLF /FORMAT> : 
i EQUATED SYMBOLS: ; 
i ; 
L 0758 Z1F XBLISS (BLISS32) é 
59 THEN 3 
st LITERAL : 
6¢ EDTSK_FAC_NO = 133; : 
764 1 XFI ; 
765 ; 
66 106 '¢ 3 
67 76 ! These codes need to be defined here because they need to be known at compile : 
$8 68 time in order to be used in case statements : 
5 770 1 | F 
71 771 GLOBAL LITERAL ; : 
% ure EDTSK_OPEN_INPUT = 1 ! code signi tying we wish to open a file for input : 
7 77 EDT$K~OPEN~OUTPUT_ SEQ = 2, ' code signifying ue wish to open a sequenced "ite for output 3 
74 774 EDTSK_OPEN_OUTPUT_NOSEQ = 3, ! code meaning we wish to open a non-sequenced file for output : 


EDTSFILEIO FILEIO 
- eclara 
104-000 becl 
: 175 0775 1 
: 1?9 br 78 1 
; iW 777 «(1 
; «#178 bree 1 
; 179 0779 +1 
> 180 b? 0 1 
: 1B) 0782 | 
; 183 ars 1 
> «(184 784 «#1 
1 Mey 
3 189 o786 1 
; «6188 0788 #1 
: 189 0789 1 
3; 190 0790 1 
, 391 0791 +1 
é 136 ta) 1 
3; «19 0795 1 
3 194 0794 1 
: «4195 0795 1 
s 19 0796 1 
; 197 0797 1 
: 198 0798 1 
: 199 0799 1 
: 200 0800 1 
: 201 0801 1 
: 202 0802 1 
: 203 0803 1 
> 204 0804 1 
; 205 0805 1 
: 206 0806 1 
: 207 0807 1 
; 208 0808 1 
; 209 0809 1 
: 210 0810 1 
s eli 0811 1 
3; 212 0812 1 
s et 0813 1 
3 214 0814 1 
s 21s 0815 1 


J iia atin HEREHBH (8:81:8 


9 

9 
EDTSK_OPEN_IN_OUT = 4, 
EDTSK"GET = 5; i 
EDTSK-PUT = 6 i 
EDTSK-CLOSE_DEL = 7, i 
EDTSK~CLOSE~= i 
EDT$K~COMMAND FILE = 1, i 
EDTSK_INPUT_FILE = 2, : 
EDTSK-INCLUDE_FILE ='3, 
EDT$SK-JOURNAL FILE = 4, i 
EDT$K-OUTPUT FILE = 5, i 
EDTSK-WRITE_FILE = 6; i 

LITERAL 

FLUSH_LIMIT = 5; 


VAX-11 Bliss-32 V4.0-74 
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we wish to open a file for both input and output 
code signifying we want to get a record from a file 
code signifying we want to put a record to a file 
we want to close the file and then delete it 

we want to close the file : 

code for the startup command file 

code for the main input file 

code for an include file 

code for the journal file 

code for the output file ; 

code for an output file being written 


Flush the journal file buffer after this many records 


\+ 
: The following symbols are for the interface to EDTSSOPN OFIDEF. Note that these values 
:_are hard-coded into the MACRO-11 modules, and into EDTSTOMOD. 


LITERAL 
DISK_FI 
DISK_FI 
DISK FI 
Q_NO 
s 
N 


0 
ATTR_INPUT = 0 
ATTR_DEFAULT = 
ATTR_JOURNAL = 
OWN STORAGE: 

in the routine 
EXTERNAL REFERENCES: 
in the routine 


No 

Is ad e 

Is ad file on RSTS 

The file is not to be sequenced 

The file is to be sequenced 

There is no related file name 

The primary input file is used as the related file 
Take file attributes from the primary input file 
Use EDT's default file attributes 

Use journal file attributes 
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l FILEIO = Central file 1/0 module 18-56 -1984 00:21:05 VAX-11 Bliss-32 V4.0-74 Pa 
00 ED TSF ILELO - Central EDT file I/0 routine 1e-8ep-19 4 99334: PE KSUMEMASTERSCEDT  SRCSFILEIO.BLI:1 
: i? peg } ZSBITL ‘EDTSFILEIO = Central EDT file I/0 routine’ 
; 219 Bais 1 GLOBAL ROUTINE EDTSFILEJO ( ! Central EDT file 1/0 routine 
; $9 0819 1 FILECODE, ' Function code 
: 1 0820 1 FILESTRM, ' Channel number 
3 6 0821 1 FILE_REC, ' File name, or record descriptor 
; 08 ¢ 1 FILE_RHB i Default file name, or record header descriptor 
> 224 08 1 )= 
3 geo 0824 1 
: 5s8 0825 1 !++ 
cc © ‘ Se § ! FUNCTIONAL DESCRIPTION: 
$ 209 0826 1! This is the basic file 1/0 routine for EDT. Callable EDT calls this 
; 230 0829 1 ! routine to do any 1/0 if this is the routine passed to it by the calling 
3 $3) tts) : program. This is the routine passed to callable EDT by the ‘'real"’ EDT. 
ie +3) sth 1 ! FORMAL PARAMETERS: 
; en 0833 1! 
3 €s2 0834 1! filecode = address of fullword containing function code defining type of 1/0 
; es 0835 1! operation to be performed 
3 esr 0836 1! filestream = address of fullword containing stream identifier 
; 238 0837 1! file_rec = address of string descriptor, i.e. the file name or place to store 
3 4s? 0838 1! record read or place to fetch record to be written 
; 240 0839 1! file_rhb = address of string descriptor for any record prefixes 
: 241 0840 1! 
3 seg 0841 1! 
3 <4 pets 1 ! Note: the default name is not implemented for WRITE/EXIT/PRINT files 
; 244 08435 1! (because of .TMP logic). Fortunately, EDT does not pass a default 
> 245 0844 1! name on these channels. 
> 246 0845 1! 
; 2467 0846 1 ! IMPLICIT INPUTS: 
; 248 0847 1! 
; 249 0848 1! EDT$$Z_SYS_PRIRAB 
; 250 0849 1! EDT$$Z_SYS_JOURAB 
3 2) 0850 1! EDT$$Z_SYS_CMDRAB 
3 gee 0851 1! EDT$$Z2_SYS_ALTRAB 
> 253 pes 1! 
> 254 st 1! 
3 @2 854 1 ! IMPLICIT OUTPUTS: 
; 256 0855 1! 
B ger 0856 1! EDT$$Z_SYS_PRIRAB 
3 258 0857 1! EDTS$$Z_SYS_JOURAB 
; 259 0858 1! EDT$$Z_SYS_CMDRAB 
; 260 0859 1! EDT$$Z_SYS_ALTRAB 
: 261 se 1! 
3 6¢ pee) : COMPLETION STATUS: 
3 264 nas : The only error returned, rather than signaled, is EOF. 
3 OBes 1 ! SIDE EFFECTS: 
; +743 1! 
: 867 1! NONE 
3 868 1! 
; 26? 1 !-- 
3 870 1 
; 871 § BEGIN 
; 0872 


a 
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EDTSFILEIO FILEIO = Central file 1/0 module 1b-se 1984 00:21:05 VAX-11 Bliss-32 V4.0-74 Page 7 
FOus000 ED TSF ILEIO - Central EDT file 1/0 routine 1e-8ep-19 4 90334503 DLEKSVMGMASTERSCEDT SRCTFILEIO.BLI:1 (3). 
> 274 0873 MAP ; 
H 75 0874 FILE_REC : REF BLOCK fF. MIZE : 
3 ug + 89 FILE_RHB : REF BLOCK C, BYTEJ; : 
: 278 0877 “Teo ROUTINE ; 
: e279 0878 EDTSSPAR_FNAME, ! parse a file name ; 
; 280 0879 EDTSSCNV_UPC, ' convert to uppercase | . 
; 281 0880 EDTSSREN FI ' renames a file > 
3 Hf 0881 EDTSSFLUSH_OBUF, ! empties Journat buffer : 
:; 28 pees EDTSSOPN_IFIDEF, ' 1/0 input open file routine ; 
> «286 088 EDTSSOPN_OFIDEF, ' 1/0 open output file routine : 
3 see tt EDTSSCLS FI, ' 1/0 close file routine $ 
; 286 0885 EDTSSRD_TFI, ' read a record from a file stream 3 
3 WR 3 ! Write a record to a e stream ; 
sor et EDTSSWR_OF] : i d fil 

; 5 
: 389 L 0888 ZIF XBLISS (BLISS32) : 
3 4 +434 XTHEN : 
; $38 0891 EXTERNAL ROUTINE ; 
; 29 95 STRSFREE1_DX, $ 
; 294 089 EDTS$SOPN_INOUT, 3 
> 295 0894 STRSCOPY_DX, : 
3 296 0895 STRSCOPY-R; ; 
: 297 0896 5 
; 298 0897 xFI : 
: $88 0899 EXTERNAL | : 
3 2} 0900 EDT$$Z_SYS_PRIRAB, ‘ 
; me 0901 2 EDTS$$Z_SYS_JOURAB, : 
; 303 090 EDTS$$Z_SYS_CMDRAB, : 
; 306 090 EDT$$2~SYS-ALTRAB: | : 
; $00 Bone 2 MESSAGES (CINPFILOPN, FILNAM, INTERERR, COMFILNEX, COMFILNOP, NOJNLFIL, INPFILNEX, OUTFILCRE, NONSTDFIL) | ; 
: 308 L 0907 3 IF XBLISS (BLISS32) | 
BRR Een as) 
5 a5 Borg : Keep the filename descriptor for each file - on VMS it’s a dynamic descriptor | : 
° c ” ; 
og | i 
e | ° 
s 315 0914 CMD_DESC : att (8, erred ! command file : 
: 16 0915 PRESET ( CDSCS$B_DTYPEJ = 4 DTYPE_T : 
> 317 916 BSC$B_CLASS) = ScSk_CLASS_D, | : 
: 318 91 DSCSAPOINTER) = 0, | ; 
; 19 at DSC$W_LENGTH] = 0), : 
3 «6eO 091 JOU_DESC : ecoce (8, BYTE ! journal file | 3 
; 21 0920 PRESET ( CDSCSB_DTYPE) = ogcee DTYPE : 
; 3¢ 0921 BSC$B_CLASS) = BSc$k_CLASS_p, : 
 - 09 é DSCSA-POINTER) = 0, ; 
: 326 be DSC$W_LENGTH) = 0), : 
s Seo 924 INP_DESC : overs (8, BYTE ' primary input file : 
3 6 925 PRESET ( CDSCSB_DTYPE) = B5cee DTY : 
: 327 926 BSC$B_CLASS) = OSC$k_CLASS_D, ; 
3 8 9 DSCSA_POINTER) = 0, : 
; 385 09 3 DSCSW Lewetnd = 0), : 
3 : " ! temporary or secondary e ; 

09 ALT_DESC : BLOCK (8, BYTE 7 d fil ; 


D 12 
ILEIO FILEIO = Central file 1/0 module 16-Sep-1984 00:21:05 VAX-11 Bliss-32 V4.0-74 Page 8 
00 EDTSFILEIO = Central EDT file 1/0 routine 1e-8ep-19 4 99:53:88 DISK SVMGMASTERSCEDT SRCTFILEIO.BLI;1 ° (3). 
; 331 930 PRESET ( CDSC$B_DTYPE] = DSCSK_DTYPE_T | : 
; § $8 1 BscsB Clases = BScsk_CLASS_p, ; 
; 09 § DSCSA_POINTER] = 0, : 
: 4 09 DSCSW_LENGTH] = 0), ; 
3 5 0934 OUT_DESC : BLOCK (8, BYTE ' output file ; 
; 6 82 5 PRESET ( CDOSCSB_DTYPE] = a DTYPE_T ; 
: 337 9 6 SSC$B_CLASS) = BSCS CLASs_p, : 
; 8 09 DSCSA_POINTER] = 0, : 
; 339 0938 DSCSWILENGTH] = 0); : 
; 340 0939 : 
: 4) 0940 '¢ ; 
: 4g Boe) ! The resultant name from the primary snput open, used for the primary output open. ; 
3; 94 ! (We cannot use INP_DESC since it is released after the input file is closed, . 
3 344 094 ! which may be before the output file is opened.) ; 
5 34 0944 !- $ 
: 346 0945 5 
; «347 B08 OWN PF 
; 348 094 INP_NAME : VECTOR (256, BYTE], : 
> 349 0948 INP_NAME_LEN; : 
3 $29 0949 3 
; 351 u 0950 ZELSE ; 
; $26 U 0951 F 
3; 3 U O3 26 OWN | ; 
; 354 u 095 CMD_DESC : BLOCK (8, BYTE] ! command file : 
3 Soe U 0954 PRESET ( CDSCSA_POINTER) = 0, : 
; 356 uU 0955 pOscoy LENGTHS = 0), : 
3; Sor U 0956 JOU_DESC : BLOCK (8, BYTE ! journal file : 
; 358 U 0957 PRESET ( CDOSCSA_POINTER) = 0, : 
; 359 u 0958 2 poscey LENGTHS = 0), ; 
; 360 U 0959 INP_DESC_: BLOCK (8, BYTE ! main input file : 
s 36) U 0960 PRESET ( CDSCSA_POINTER] = 0, ; 
; 366 U 0961 posceu LENGTH = 0), ; 
; 3% U O306 ALT_DESC : BLOCK (8, BYTE ! temporary or secondary file : 
; 364 U 096 PRESET ( CDSCSA_POINTER) = 9. ; 
; 365 U 0964 cOsCey LENGTH = 0), : ; 
; 366 U 0965 OUT_DESC : BLOCK (8, BYTE ' output file . 
: 367 U 0966 PRESET ( CDSCSA POINTER] = 0, | 
: 8 U 0967 CBSCSW_LENGTH] = 0); 3 
: 369 U 0968 : 
; 370 0969 2FI : 
: 371 0970 . 
3; 372 0971 OWN : 
: 373 097 3 
: 374 L 097 ZIF XBLISS (BLISS32) 3 
; 375 974 ZTHEN : 
: 370 0975 OUT_IFI, ' internal fice id for grnery output file 3 
s 377 6 JOU_IFI ! internal file id for journal file ; 
: 378 97 INCC_IFI, i internal file id for include file ; 
: 379 dA INP_TFI, ' internal file id for primary input 3 
:; 380 97 CMD_IFI, ! internal file id for command file : 
ae gin Bas} 
; Hy 9 DISK FI ! flag indicating opening a renameable file for output : 
3; «384 9 FLUSR_COUNTER : INITIAL (0), ' counts PUTs to journal towards flushing the buffer 3 
; «385 9 INCL_DFC ! flag indicating include file is VFC format file | : 
3 y +4 INPUT_VFC; flag indicating primary input is VFC format file : 
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EDTSFILEIO FILEIO = Central file 1/0 module 1b-3¢ -1984 00:21:05 VAX-11 Bliss-32 V4.0-74 Page 9 
Oat 000 EOTSEILEIO - Central EDT file 1/0 routine 1 ~3007 138% 99:34:03 SEK SUMMASTERSCEDT Sac SFILEIO.8L1;1 . (3) | 
; 388 987 LOCAL 3 
89 9 8 VFC 3 
90 9 ERROR ; 
91 990 10_STS, : 
:) 991 10_STV, ; 
9 836 STATUS; F 
94 99 3 
95 994 BIND : 
96 0995 FILE DESC = .FILE_REC : BLOCK C, orig ' passed in descriptor for filename or record in or out ; 
338 84 RHB_BESC = .FILE_RHB : BLOCK C, BYTE]; ! record header block descriptor : 
99 998 '¢ | F 
400 999 ! Find out first what kind of operation is requested 3 
ig) 888g : 
40 100 CASE ..FILECODE FROM EDTSK_OPEN_INPUT TO EDTSK_CLOSE OF é 
04 00 SET 3 
405 004 '+ F 
06 005 ! Open a file for input 3 
006 t= 3 


CEDTSK_OPEN_INPUT) : ! we want to open a file 
BEGIN 


o 


RIF ZBLISS (BLISS16) 
ZTHEN 


xFI 


eccr 


me kt a a a a a at a a td = = = = 2 0 = ot 


NONSTD = 0; 
CASE ..FILESTRM FROM EDTSK_COMMAND_FILE TO EDTSK_INCLUDE_FILE OF 
SET ! which file? 


MOMOPOPIRD  — 2 os 


CEDTSK COMMAND FILE) : ! open the command file for input 


NOVEWN —OOONOUSWN—O0On 


Nisa undue obie 


meu tss (BLISS32) 


| 
| 
EDTSSCNV_UPC (.FILE_DESC COSCSA_POINTER], .FILE_DESC COSCS$W_LENGTH)); | 
ZIF 
ZTHE 


CMD_IFI = EDTSSOPN_IFIDEF (EDT$$Z_SYS_CMDRAB, FILE_DESC, .RHB_DESC CDOSCSA_POINTER], 
-RHB_DESC COSCSW_LENGTH], RELAT_NONE, IO_STS, TO_STV, VFC> NONSTD); 


'¢ 
: If the open failed then find out why 


IAI PoPoronoerng 
WR 0 DONAOUS WN “OOOO S Ww O0O~ 


ye 


Raber ta sive) they 
“ 


IF (.CMD_IFI EQL 0) 
THEN 


Se 


'¢ 


Fo? oP oF oY ot ot ot ot >t >t nt at at et et at ak te a ee eh 
COOOOCCOCOCOCOCOCOCOCOCCSOOCOOCOOOOOCoOoOoOoOoooo 


| 
: Signal an error 
. baa | 
| 


3 
LOCAL 
NONSTD; 
8 
4 
4 
& 
4 
4 
4 
4 
4 
4 
5 
4 
4 
4 
4 
4 
4 
4 
4 


39 M3 

40 3 
441 040 SIGNAL_STOP (SHRS_OPENIN + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, FILE_DESC. 
rr be) -I10_STS, .10_STV); 
444 028 '¢ 


Ys 0209 Page 1 
CEDT.SRCJFILEIO.BLI;1 (3 


EDTSFILEIO 
04000 


10 = Central file 1/0 module bese -1984 VAX-11 Bliss-32_V 
$F ILEIO - Central EDT file 1/0 routine 16-Sep-1984 98: 3}: 82 DISKSVMSMASTER: 


If the file is non-standard, indicate this. 


IF .NONSTD THEN IO_STS = EDTS_NONSTDFIL; 


' + ' 
t Save the complete filename | 


STRING_DESC (CMD_DESC, FILE_DESC CDSCS$W_LENGTH], .FILE_DESC CDSCSA_POINTER]); | 


10_ bd = EDTSSOPN_IFIDEF (EDT$$Z_SYS_CMDRAB, .FILE DESC CDSCSA “bese ED ], 
§ Fine. DESC COSC$W_LENGTHJ, .AHB_BESC CDSc$A -POINTER], .RHB_DESC CDSC$W_LENGTH], 0, 0 


RETURN (.10_STS); ! return status 
END; 


ZELSE 


= 

we 

io 
ccce 


~“ 
= a tn a — 5 ss —) as — 4 > 2» 5 2s — 4 _ 2s —) 2d — 9 2 4) 2 ts mn 


tFI 


OOOCCCOCOCOCOOCOOCOoCOO CFS 


SESSSSSSESE 
OOOO NNN NNN NNO AAAAOOCAMMIMNNNIVIVIVIVIVIFS SLES LE 


CEDTSE  WPUT FILED : ! open the primary input file for input 


RIF ZBLISS (BLISS32) 
THEN 


INP_IFI = EDTSSOPN_IFIDEF (EDT$$Z_SYS_PRIRAB, FILE_DESC, .RHB_DESC CDSCSA POINTER], 
“ ~RHB_DESC COSCSW_LENGTH], RELAT_NONE, IO_STS, TO_STV, INPOT_VFC, NONSTD); 


- Save the name for opening the output file on VMS, even if the input file does not open. 


NAME_LEN = .FILE_DESC COSC$W_LENGTH); 
; CHSROVE T.INP_NAME_LEN, .FILE_DESC CDSCS$A_POINTER], INP_NAME); 


i+ 
; Check for open failure. | 
a | 


IF (.INP_IFI EQL 0) 
SIGNAL_ phe (SHRS_OPENIN + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, | 
| 
| 


OCONOVUEWN “OOS NOUESWN 2OOONC NSW" OOONOUS 


1, FILE_DESC, .10_STS, .10_ST9); 
' 


'¢ 
: If the file is non-standard, indicate this. 


IF .NONSTD THEN IO_STS = EDTS_NONSTDFIL; 


00000 0000 00 
CONOUS WN Oo 


ZELSE 


COOCCCOCOCOCOOCOCOCOCOOoOoOoCoooo 


rw PF oY oP oY oT ot ot ot ot oot ot et et et et ete et eh tt lt th nh) ee 


10_STS = EDTSSOPN_IFIDEF prssi SYS_PRIRAB, .FILE_DESC CDSCSA POINTER) 
-FILE_DESC COSCSW_LE Nor J, .RHB DESC CoSc$a POINT NTER], .RHB-DESC COSC$W_LENGTHJ, 0, 0 


| 
IF I 
| 


> 
oO 
ccce 


'¢ 
i Save the complete filename. This is needed on the PDP-11 for opening the journal file. 


STRING_ nese ce. DESC, FILE DESC COSC$W_LENGTH], .FILE_DESC COSCSA_POINTER)); 
ams -10_STS)} ' return status 


PS PES SS SES. 


Be Be Be Oe Be Be Be Se oe Oe Fe Be Ge Se Se Ge Fe Se Se Ge Be Se SH Se Se BF Os Oe OF oe BH Ge Be SESH SH SH oe HSH Ss SESH Se ae Se BH Gee SESE Se Sees Se Se eeas 
a 
~ 
= 


—o 


} 


12 
EDTSFILEIO 10 = Central file 1/0 module 18-$6 -1984 7:21:05 VAX-11 Bliss-32 V4.0-74 P 11. 
TO OOD Sf PLe16 - Central EDT file 1/0 routine 1a-8ep- 3B 90:34:83 DP EKSUMGMASTERSCEDT SRC SFILEIO.8L151 — (3). 
0 

208 CEDTSK_INCLUDE_FILE) : ! open include file for input 
be BEGIN 
L MIF XBLISS (BLISS32) | 

ZTHEN 

BEGIN 
INCL 


LIFI = EDTSSOPN_IFIDEF (EDT$$Z_SYS_ALTRAB, FILE_DESC, .RHB_DESC CDSC$A_POINTER], 
“RHB_DESC CDSCSQ_LENGTH], RELAT_INPUT, I0’STS, IO_STV, INCL_VFC, NONSTD); 
Fl 


IF (.INCL_IFI EQL 0) 
” THEN 
Signal the error 


SIGNAL STOP (SHRS_OPENIN + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, FILE_DESC, 
-I6_STS, .10_STV); 


14 
If the file is non-standard, indicate this. 


rm nm eer 


WN —O CONOUSWA) “OC ODONOUSWN—O0On 


14 
Save the complete filename 


Ww 


er (ALT_DESC, FILE_DESC CDSCS$W_LENGTH), .FILE_DESC COSCSA_POINTER)); 


WAIN WPonorornornoforornofry 


| 
} 
IF .NONSTD THEN I0_STS = EDT$_NONSTDFIL; | 


PULUPV DUP LVI PVLPULVLULUSVSIVIVLUPUSUSU IUPUI IT ST SUSIE SUIT SUST SUSU SSSI STITT 
ae 


PUPP BS BS BS BE EE BE EWAN IAIN PINIPONINID 2 2 OO OS SS SOOOOCOOOCOCOCO -r- 
NAAN @OOONOA UE WIN 0 ODNOAUE WN O OONOA UE WW SO ODNOU SUN 0 OONOUS Wh 


AAA A AAA APIPIP|I INDI Hh BBB BBE DDI TITTIES A 


me me ee ed a at td a od = = od 2d maw 


U ZELSE 

U 10_STS = EDTSSOPN_IFIDEF (EDTS$Z_SYS_ALTRAB, .FILE_DESC CDSCSA_POINTER], 
3 U FILE DESC COSC$W_LENGTHJ, .RHB_DESC CDSC$A_POINTER], .RHB-DESC CDSC$W_LENGTHI, 
$e U _ -INP_BESC COSCSA_POINTER], .INP_DESC CDSC$W-LENGTHJ, 0, 0); 
36 
37 RETURN (.10_STS); 
$ END; 
40 CINRANGE, OUTRANGE) : 
41 ASSERT (0); 
ry! 3 
4 
44 END; 
re : Open a file for output 
48 ; 
49 CEDT$K_OPEN_OUTPUT_SEQ, EDT$K_OPEN_OUTPUT_NOSEQ) : 
39 BEGIN 
26 LOCAL 
27 SEQ; 
55 L ZIF ZBLISS (BLISS16) 
2 U ZTHEN 
338 U OF EDTSSCNV_UPC (.FILE_DESC CDSCSA_POINTER], .FILE_DESC COSCS$W_LENGTH]); 


H 12 
EDTSFILEIO FILEIO = Central file 1/0 module 16-Sep-1984 00:21:05 VAX-11 Bliss-32 V4.0-74 Page 12. 
Out 000 EOYeE ILE IO - Central EDT file 1/0 routine 13-808- 1382 99:34:03 DLEKSVMEHASTERSCEDT SRCTFILEIO.BLI;1 . (3). 
; 559 1128 3 . 
5 4 1123 4 IF (,.FILECODE EQL EDTSK_OPEN_OUTPUT_SEQ) 
; 1161 SEQ = SEQ_YES ! make it a sequenced VFC file 
; 56 1106 ELSE 
3 ee W187 SEQ = SEQ_NO; ! not a sequenced file 
3 66 1165 CASE ..FILESTRM FROM EDTSK_JOURNAL_FILE TO EDTSK_WRITE_FILE OF 
st 7 
; 569 1168 CEDTSK_OUTPUT_FILE, EDTSK_WRITE_FILE) : ! WRITE or OUTPUT file 
: ef0 1397 4 BEGIN 
3; $71 1170 4 
; 2f¢ 1171 4 LOCAL 
s So 1156 4 ATT, ! Q = use input file attributes, 1 = use EDT's default file attributes 
; 574 1173 4 RELAT, ! 0 = no related file, 1 = use input file's name and type before default nam 
5 af? Wie : FORCE_MAXV; ! 1 = force maximum version number 
s S77 1178 5 IF (,.FILESTRM EQL EDTSK_OUTPUT_FILE) 
; 578 1177 4 THEN 
; 579 1178 5 BEGIN 
; 580 1179 «5 ATT = ATTR_INPUT; 
; 581 1180 § RELAT = RECAT_INPUT; 
2 ae 1181 5 FORCE_MAXV = T; 
3; 3 1136 5 
; 586 11835 4 
; 585 1184 5 GIN 
; 586 1185 5 ATT = ATTR_DEFAULT; 
s 387 1186 5 RELAT = RECAT_NONE; 
; 588 1187 § FORCE_MAXV = 0; 
; 589 1188 4 END; 
; 590 1189 4 
: 591 1190 4 !¢ 
3 238 4 ? This code cannot handle default file names, so make sure there isn't one. 
; 594 1198 4 ASSERT (.RHB_DESC CDSC$W_LENGTH] EQL 0); 
; 595 1194 4 DISK_FI = 0; 
; 596 1195 4 
; 597 L 1196 4 RIF ZBLISS (BLISS32) 
: 598 1197 4 XTHEN 
; 599 1198 4 !¢ 
: 600 1199 4 ! On VMS, if the EXIT file name is not specified, use the resultant file name from the input open. 
; 601 1200 4 ! Because we are forcing maximum version number the version number in the input file name string 
3 606 139) 4 ! won't cause trouble. 
; 60 1 8 4 !- 
3; 604 130 4 
; 605 1204 5 IF ((.RELAT EQL RELAT_INPUT) AND (.FILE_DESC CDSC$W_LENGTH] EQLU 0)) 
g 608 1205 4 THEN 
: 60 1 53 : BEGIN 
; 608 120 STRING_DESC (FILE_DESC, INP_NAME_LEN, INP_NAME); 
: 609 1 43 4 END; 
: 610 1209 4 
; 611 1210 4 !¢ 
3 oie 1211 4 ! Parse the output file name - If successful, then do the open; otherwise 
: ol? ' \§ ? signal an error on open 
3; 615 1214 4 STATUS = EDTSSPAR_FNAME (EDTS$Z_SYS_ALTRAB, FILE_DESC, .RELAT, DISK_FI, IO_STS, IO_STV); | 


12 
EDTSFILEIO 10 = Central file 1/0 module 14-98 =-1984 7:21:05 VAX-11 Bliss-32 V4.0-74 Pa 3) 
TO t00b Bo e18 - Central EDT file 1/0 routine 1278 08- 1 3b 90:35:08 DTEKSVMGHASTERSCEDT SRCTFILEIO.BL1;1 - 3 
61 
o IF ( NOT .STATUS) | 
1 SIGNAL_STOP (SHRS$_OPENOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 


1, FILE_DESC,”.10_STS, .10_STVJ; 


FIL 

EDT 
: 1215 4 
; 1 1 5 
; 618 1217 4 
>; 619 1218 4 
: 620 1 4 4 
: 621 1 4 
s 6 § 1221 4 OUT_DESC CDSCS$W_LENGTH) = 0; 
; 6 ; é 4 * OUT“DESC CDSCSA-POINTER) = 0; | 
; 625 1224 4 ! Save description of output file before translation with .TMP extension 
3 e § } 5 ? if this is a disk or DECtape file for rename Later 
; 628 1 ; & | 
: 629 1228 5 IF (.DISK_FI) 
; 650 1229 4 THEN 
3; 631 1230 : BEGIN 
; O36 1231 STRING _DESC (OUT_DESC, FILE_DESC CDSCSW_LENGTH], .FILE_ DESC CDSCSA_POINTER)); 
; 63 1s3¢ 5 STRSCOPY_R FILE_DESC, ZREF (ZCHARCOUNT (TEMP_TYP)), UPLIT (BYTE (TEMP_TYP))); 
; 634 \$3 5 FORCE_MARV = 1; ! For .TMP file, force max version number 
; 635 1234 4 END; 
; 636 1235 4 
3; 637 1538 4 !+ 
; 638 1237 4! If this is a disk file, open a temporary file for output, then rename later 
2 or, 1339 ? if all goes well. If not a disk file, Just open the ‘‘given’’ file. | 
3; 641 1240 4 OUT_IFI = EDTSSOPN_OFIDEF See SYS_ALTRAB, FILE_DESC, .OUT_DESC CDSCSA_POINTER], 
; nt isl ? a .OUT_DESC COSCSW_LENGTHJ, .SEQ, .RELAT, .ATT, .FORCE_MAXV, IO_STS, IO7STV); | 
> 644 1503 4 ! Signal an error 
> 645 iste 4 !- 
; 646 1245 4 
: 647 1246 5 IF (.OUT_IFI EQL 0) 
: 648 iste 4 HEN 
3; 649 1248 4 SIGNAL_STOP (SHRS_OPENOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 
; 650 1249 4 1, FILE_DESC, .I10_STS, .10_STVJ; 
: 651 1520 4 
3 $36 1251 4 !¢ ; 
3 $37 : 26 ? : Save the complete filename for the close later 
: 655 1254 4 STRING_DESC (ALT_DESC, FILE_DESC COSCS$W_LENGTH), .FILE_DESC CDSCSA_POINTER)); 
; 656 U 1255 4 ZELSE 
3; 657 U 1256 4 
; 658 U 1257 4 IF (.RELAT EQL RELAT_INPUT) 
3; 659 U1 8 4 THEN 
; 660 u 1259 4 BEGIN 
: 661 U 1260 4 STATUS = EDTSSPAR_FNAME Cop TSS2 SVS AL TRAD -FILE_DESC Rosces POINTER) 
: 662 U 1261 4 FILE DESC COSCSW_LENGTHJ, -INP~DESC COSCSA_POINTER), .INF_DESC COSCS$W_LENGTH), 
; 66 ul ¢ 4 DISK_FI); 
: 664 U 1265 4 END 
; 665 U 1264 4 ELSE 
; 666 U 1265 4 BEG! | 
; 667 U1 68 4 STATUS = EDTSSPAR_FNAME cept sez SYS_ALTRAB, .FILE_DESC CDSCSA_POINTER], 
> 668 U 1267 4 -FILE_DESC COSCS$W_LENGTH], 0, O07 DISK_FI); | 
: $F U 1369. a | 
3 tA : ‘ 19 2 STRING_DESC (OUT_DESC, FILE_DESC CDSCSW_LENGTH], .FILE_DESC COSCSA_POINTER)); 


EDTSFILEIO FILEIO = Central file 1/0 module 1b-56 Sep-1984 VAX-11 Bliss-32 V4.0- e 14 
ious §06 ED TSF ILELO - Central EDT file 1/0 routine 8ep-1984 99: $4: 8% DISKSVMSMASTER: a ebT sac Sr iLero. BLI;1 os (3) 
: 673 U 1272 4 IF (. STATUS) 

; 674 U1 ig 4 THEN 

; 675 u 1274 4! 

; 676 U 12075 4 ! Disk files are handled specially on RSTS. We don't use a .TMP extension 

5 Of7 U1 6 4 ' but rather open it in temporary mode using the actual name “given 

; 678 U 1277 4 i- 

: Bes U iss8 ¢ IF (.DISK_FI EQL DISK_FILE_YES) 

3 ° L 

3; 681 i | 30 4 THEN “ © a 

; 68 U 1281 4 BEGIN 

; oe J i He 4 IF (.RELAT EQL RELAT_INPUT) 

> 685 U1 g 4 THEN , 

; 686 U 1285 4 BEGIN 

3; 687 U 1286 4 10_STS = EDTSSOPN OF IDEF (EDT$$2 _SYS ALT AB, UPLIT (BYTE (TEMP_TYP)), 
3; 688 U 1287 4 ZCHARCOUNT (TEMP_TYP), . pILE Dest COS te POINTER] 

; 689 U 1288 4 FILE DESC toscs0 1 ENGTH 1 EINES DESC CDSTSA_POINTER], 

3; 690 U 1289 4 .INP_BESC COSCS$W_ cECTHI , 0, SEQ, .ATT); 

; 691 U 1290 4 END 

3 (69 U 1291 4 ELSE 

: 69 U1 3 4 BEGIN 

> 694 U 1293 4 10_STS = EDTSSOPN_OF IDEF (EDTS$Z_ SYS_ALTRAB, uP IT (BYTE (TEMP_TYP)), 
3; 695 U 1294 4 XCHARCOUNT (TEMP_TYP), .FILE-DESC CDSC$A_POIN 

3; 696 U 1295 4 -FILE_DESC COSCSQ_LENGTH], 0; 0, 1, 0, .SEQ, Wt TS; 

; 697 U 1296 4 END; 

; 698 U 1297 4 

3; 699 U 1298 4 END 

; 700 U 1299 4 ELSE 

3; 701 uU 1300 4 BEGIN 

: 70 u 1301 4 

; 70 ul 0 4 IF (.RELAT EQL RELAT_INPUT) 

; 704 u 1303 4 

: 705 U 1308 4 BEGIN 

: 706 u 1305 4 10_STS = EDTSSOPN_OFIDEF (EDT$$Z_SYS_ALTRAB FILE DESC CDSCSA_POINTER], 
> 707 U 1306 4 FILE DESC COSC$W LENGTH], 0; 0 4 [Np DESC DSCSA_POINTER]. 

: 708 u 1307 4 -INP_BESC COSC$W_CENGTHJ, .FORCE_MAXV; 0, .SEQ, .ATT); 

: 709 U 1308 4 END 

; 710 u 1309 4 ELSE 

3: (711 u 1310 4 BEGIN 

; fe u1311 4 10_STS = EDTSSOPN_OFIDEF (EDTS$$Z_SYS_ALTRAB, .FILE DESC fOscsa POINTER). 
: 71 ul 1 4 -FILE_DESC COSC$W_LENGTH], 07 0,°0, 0, .FORCE_MAXV, 0, .SEG, .A 

> 716 u 1313 4 END; 

: 715 u 1314 4 

: 16 u 1315 4 END 

: 71 U1 16 4 

: 718 u1317 4 ELSE 

: 719 u 1318 4 10_STS = .STATUS; 

3 730 u 1319 4 

: 721 1320 4 &FI 

: 138 1321 4 

a 1 ¢ 4 RETURN (.10_STS); 

; 4 : ' ? ; END; 

: 7 g 1325 CEDT$K_JOURNAL_FILE) : 

1 $ 4 BEGIN 

; 728 1 4 

3; 729 L 1328 4 ZIF XBLISS (BLISS32) 


essay 


Be Be Ge Be Se Be Oe Ge Be Ge Be Oe Ge BH Se Be Be Se Ge Be Se He Be Se Oe Se Se Ge Se Ge Be Be Gs Oe Se Ss Ge Se Os ee Oe Ge SH Se BHESH Oe BESS SESE SF as ee BH Se 


SNS NNN 
PAAAAAMVIVIT 
DONOULSWN—O 


cccccce 


em ee em em a a nt ot = ww“ = = 8 = YS a ts mw" 


cccc 


1 
K 12 
10 - Central file 1/0 module -Sep-1984 5 VAX-11 Bliss-32 V4.0-74 Pa 5 
$F ILEIO - Central EDT file 1/0 routine 12: =tep- 138 99: $4: 8 DISKSVMSMA Sfeaccto ~SRCJFILEIO.BL1;1 ats 3 
XZ THEN 
JOU_IFI = EDTSSOPN_OFIDEF pot $82. SYS_JOURAB, FILE_DESC, .RHB_DESC CDSCS$A_POINTER] 
-RHB_DESC CDSCSW_LENGTH “NO, RELAT_INPUT,“ATTR_JOURNAL, 1, IO0_STS, IO_STVS; | 
IF (.JOULIFI EQL 0) | 
SIGNAL. hes (SHRS_OPENOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 
1, FILE_DESC,”.10_STS, .10_STVJ; 
a te STRING_DESC (JOU_DESC, FILE_DESC CDSCS$W_LENGTH], .FILE_DESC CDSC$A_POINTER]); 
¢ 
Note that .SEQ+1 is used to specify a normal output open or an open for append. 


10_ avy eCBTSsORN OFIDEF (EDT$$Z_SYS_JOURAB, .FILE_DESC_CDSCSA_POINTER] 
DESC COSCSW_LENGTH], .RHB_BESC DSc$A -POTNTERI. | .RHB_ DESC ¢ to SCS$W_LENGTH], 
me NPS aati COSCSA_POINTER], .INP_DESC ia it LENGTH), 1, .SEQ + 1, 0, 19; 


RETURN (.10_STS); 
END; 


CINRANGE, OUTRANGE] : 
ASSERT (0); 


- END; 
_ Open a file for both input and output 


CEDTSK_OPEN_IN_OUT) : 
ae BEGIN 
; The journal file is the only file we can open this way 


NNN NNN NN NA AAAAA AA AONE BERR RRR EE EWWWAWAAAA 


MEAN 20 OONOA UE WIN 9 ODNAUE WIN $8 OD NA UE WIN 9 DOONAN EWN (OODNIAUIS WN OO 


} 
IF (..FILESTRM EQL EDTSK_JOURNAL_F ILE) 
BEGIN 

| 


AAAI AI AIAN AANA AIA NAIA NAIA AAI WAI AIAIAIAAI NIWA WIAA AAA AAA ANNAN OO 
PEPE EEE PME EEE EF FEAF AWM NINN N WINNIE BBE EPP PEPE PPP PN EEE 


X1F XBLISS (BLISS32) 
JOU_IFI = EDTSSOPN.INOUT (EDTS$Z_SYS_JOURAB, FILE_DESC, .RHB_DESC CDSCSA POINTER, 
~RHB_DESC CDSCSW_LENGTH), IO7STS; 10_STV); 
IF (.JOU_IFI EQL 0) 
SIGNAL_STOP (SHR$_OPENIN + CEDTSK_ FAC_NO*65536) + STSSK_SEVERE, 1, | 
FICE_DESC, .10_STS, .10_STV) | 
8 sa STRING_DESC (JOU_DESC, FILE_DESC rostsu. LENGTH], .FILE_DESC CDSCSA_POINTER}); | 
: 10_STS = EDTSSOPN_IFIDEF (EDTS$$Z_SYS_JOURAB, .FILE DESC CDSCSA_POINTER) | 
-FILE DESC COSCSW LENGTH), . RHB_DESC poscgh. POINTER), RAB “DESC COSCSW_LENGTH, | 
8 a -INP_BESC COSCSA_POINTER], .INP-DESC CDSCSW-LENGTHJ, 0, 1)3 | 


Et 


12 ' 
EDTSFILEIO FILEIO = Central file 1/0 module 18-56 -1984 VAX-11 Bliss-32 V4.0-74 e 16 EC 
Oat 000 EOTSEILEIO - Central EDT file 1/0 routine Sep-19 4 99: gt: 82 DISK aKSVMGR TER: ths ~SRCIJFILEIO.BLI;1 thie Rid ve 
: 787 1 $ 4 
: 788 1 4 RETURN (.10_STS); 
> 789 1388 4 END 
: 790 1389 ELSE 
: 791 1390 ASSERT (0); 
: 79 1391 
: 79 1 3 END; 
: Oe 1392 CEDTS$K_GETJ ish df fil 
° : !' We wis to get a recor rom a e 
796 1395 BEGIN s 
: 797 1396 
: 798 1397 LOCAL 
: 799 1396 DESC_ADDR, 
; 800 1399 RAB; 
: 801 1400 
; 80 1401 CASE ..FILESTRM FROM EDTSK_COMMAND_FILE TO EDT$K_JOURNAL_FILE OF | 
; 80 1408 3 SET 
3; 804 14035 3 
: 805 1404 3 CEDTSK_COMMAND_FILE) : ! the startup command file 
; 806 1405 4 BEGIN 
: 807 1406 4 DESC <ADDR = CHD DESC 
; 808 1407 4 = EDTS$Z_ SYS_ CMDRAB; 
: 809 1408 4 = 0; | 
: 810 1409 3 END; 
: 811 1410 3 
: 812 1411 3 CEDTSK_INPUT_FILE) : ! get a record from the primary input file | 
> 813 1412 4 BEG 
: 814 1413 4 DESC_ADDR = INP_DESC; 
; 815 1414 4 VFC = .INPUT_VFC; 
: 816 1415 4 RAB = EDT$$Z~SYS_PRIRAB; 
: 817 1416 3 END; 
: 818 1417 3 
; 819 1418 3 CEDTSK_INCLUDE_FILE) : ! the secondary input file 
; 820 1419 4 BEGIN 
3 821 1420 4 VFC = .INCL_VFC; 
3 822 1421 4 DESC_ADDR ="ALT_D | 
; 823 1498 4 RAB = EDT$$Z_SYS OA TRAB: | 
3; B24 1423 3 END; 
3; 825 1424 3 : : 
; 826 1425 3 CEDT$K_JOURNAL_FILE) : ! get a record from the journal file | 
: 827 1426 4 BEGIN 
; 828 149? 4 VEC = | 
: 829 1428 4 DESC *aDbR = = JOU_DES | 
: 830 1489 4 RAB = EDT$$Z_SYS_ nye 
: 831 14 9 END; 
: $3 1432 CINRANGE OUTRANGE] : 
3 834 143 SERT (0); 
: 835 1434 a 
; 836 16g? 
; 837 L 1436 X1F XBLISS (BLISS32) 
3 B33 1438 STATUS = EDTSSRD_IFI (.RAB, FILE_DESC, RHB_DESC, I0_STS, IO_STV, .VFC); 
: 841 1440 4 IF ( NOT .STATUS) 
: 4@ 1441 ; THEN | 
; 84 1442 


] 
M12 
EDISEILEIO FILEIO - Central file 1/0 module 16-Sep-1984 00:21:05 VAX=-11 Bliss-32 V4 0-743 Page 17) 
v04=0 EDTSFILEIO = Central EDT file 1/0 routine 14-Sep-1984 12:23:06  DISKSVMSMASTER:CEDT.SRCJFILEIO.BLI;1 (3), 
: Bu 1443 4 IF (.10.sT8 EQL RMS$_EOF) 
; B46 1445 4 RETURN (.10_STS) | 
: 848 1209 SIGNAL STOP (SHRS$_READERR + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, .DESC_ADDR, .10_STS, 
; 849 1448 .10_STV); 
; 850 1449 
: 851 U 1450 3 XELSE 
; Hr U 162) BEGIN 
: Bei u 1288 LOCAL | 
; B59 U 1454 REC_ADDR, 
Be mae 
: 858 U 1457 ; STATUS = EDTSSRD_IFI (.RAB, REC_ADDR, REC_LEN, .RHB_DESC CDSCSA_POINTER], ! | 
> 859 U 1458 3 RHB_DESC CDOST$W_LENGTH)); 
: 860 U 1459 ; STRING_DESC (FILE_DESC, REC_LEN, .REC_ADDR); 
; 861 U 1460 3 
| Bera a 
> B64 1263 3 RETURN (.STATUS); 
Bo HS “ | 
: 867 1466 ¢ CEDT$K_PUT) : ! we wish to put a record to a file | 
: 868 1467 BEGIN | 
: B70 1489 3 OCAL | 
Py } 
: 871 1470 : DESC_ADDR, 
: BIS i272 3 ~_— | 
: 874 1478 3 CASE ..FILESTRM FROM EDTSK_JOURNAL_FILE TO EDTSK_WRITE_FILE OF | 
1g G ut 
; 87? 1476 3 CEDTSK OUTPUT_FILE, EDTSK_WRITE_FILE) : ! put a record in an output file | 
> 879 1478 4 DESC_ADDR = ALT_DESC; | 
; 880 1479 4 RAB = EDTS$$Z_SYS_ALTRAB; 
et 128; 3 rey 
° { 
3 nH 1086 ? CEDTSK JOURNAL FILE : ! put a record to the journal file 
|; 885 1484 4 DESC_ADDR = JOU_DESC; 
; 886 1485 4 RAB = EDT$$Z_SYS_JOURAB; 
. on; 
: 889 1488 CINRANGE, OUTRANGE) : 
; 890 1489 ASSERT (0); 
a if es 
; 895 L 149¢ 3 IF XBLISS (BLISS32) | 
: $96 : 1494 aad STATUS = EDTS$S$WR_OFI (.RAB, FILE_DESC, RHB_DESC, IO0_STS, 10_STV); | 
; td U 1496 STATUS = EDT$S$WR_OFI (.RAB, .FILE_DESC CDSCSA_POINTER], .FILE_DESC CDSC$W_LENGTH), 
; 898 U 149 .RHB_DESC COSCSA_POINTER]); | 
3; 899 1498 ZF I 
; 900 1499 | 
| 
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ntral file 1/0 module 16-Sep 4 5 VA 
o Central EDT file 1/0 routine 1exgee-198s 99:34:83 He 


IF ( NOT .STATUS) 
THEN 


escbuye™ 


o- 
—T 
om 
Te 
—O 
to 
me 
= 
oo 


oF hed os Pa 1 


XBLISS (BLISS32) 

SIGNAL STOP (SHRS_URITEERR + (EDTSK FAC_NO*65536) + STSSK_SEVERE, 1, .DESC_ADDR, .10_STS, 
“FI : 
ELSE | 


IF (..FILESTRM EQL EDTSK_ JOURNAL | fst 
THEN T keep the journal buffer clear 


BEGIN 

FLUSH COUNTER = .FLUSH_COUNTER + 1; 

IF (.FLUSH COUNTER EQL FLUSH_LIMIT) 
BEGIN 


be 
z= 
m 


Z1F XBLISS (BLISS32) 

THEN | 
STATUS = EDTSSFLUSH_OBUF (.RAB, IO_STV); | 
IF ( NOT .STATUS) 


sabaae SS $174 “owas + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, .DESC_ADDR, | 
oe | 


WDODOOODOOOOOOOOONO 
PWN“ OOONOULSWN—O 


POPININONY — 2 2 


XELSE 

ye STATUS = EDTS$FLUSH_OBUF (.RAB); 
FLUSH_COUNTER = 0; 
END; 


END; 
RETURN (.STATUS); 
END; 


CEDT$K_CLOSE) : ! close a file 
BEGIN 


LOCAL | 
DESC_ADDR, | 
ERROR; 


CASE a gf LESION FROM EDTSK_COMMAND_FILE TO EDTSK_WRITE_FILE OF 


CEDTSK_COMMAND_FILE) : ! close the command file 
BEGIN 


me ee me ee ee ee ee ed ed ed ed ed = wd = dd dd mw 


Pw wee ee ele eal eae lees wales wales wales ealeales lea lesle le LU Tw Tw ww we eee eee eal eae ee eee e lee wesley le wale wy! 
PUPP B BB BB BE BE EMAAR PPO NININPNINYPD 2 SS SS S| SOOO OOOOCOCOCO 
ANEW $0 ODO NEW 0 OD NAME WIN (9 ODNAU EWN $0 ODNOAUE ARO OONOAOUE WIN 
BBB AAA AMAPANIN HM TD TTT UT UB NE AAI AIA 


EOL ISS (BLISS32) 
DESC_ADDR = CMD_DESC; 


Ne 
z=" 
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} 
EDTSFILEIO FILEIO = Central file I/0 module 16-50 Sep-1984 VAX-11 ss-32 V e 
A Oue000 EDTSFILEIO = Central EDT file I/0 routine 8ep-1984 99: 3}: 8% DISK$V men STER: cho + SRcSFILEIO. BLI;1 tee. 3 
| 
; 958 1337 4 ERROR = SHRS$_CLOSEIN; 
; 959 1558 4 EDTSSCLS_ FI T.CMD_ FE, EDTS$Z_SYS_CMDRAB, 0, .DESC_ADDR, IO_STS, IO_STV); 
; 960 U 1223 4 ZELSE 
; 961 u 1560 4 1O_STS = EDTSSCLS_FI (EDT$$Z_SYS_CMDRAB, 0); 
; 96 1561 4 FI | 
. © 1366 4 
: 964 156 END; 
>; 965 1564 
: 966 1565 CEDTSK_INPUT_FILE) : ! close the primary input ifle | 
; 967 1566 4 BEGIN 
; 968 1567 4 
; 969 L 1208 4 ZIF XBLISS (BLISS32) 
: 970 1569 4 XTHEN 
; 971 1570 4 DESC_ADDR = NP opesc: 
: 97 1571 4 ERROR = CuRS Cc SEIN; 
; 97 137¢ 4 EDTSSCLS_FI T. atta EDT$$Z_SYS_PRIRAB, 0, .DESC_ADDR, IO_STS, I0_STV); 
; 97% u 1573 4 XELSE | 
: 975 u 1574 4 IO_STS = EDTSSCLS_FI (EDT$$Z_SYS_PRIRAB, 0); | 
3; 976 1575 4 FI 
: 977 1576 4 
; 978 1577 3 END; é 
: 979 1578 3 : 
: 980 1579 3 CEDTSK_INCLUDE_FILE] : ! close the secondary input file : 
; 981 1580 4 BEGIN : 
; 982 1581 4 | : 
; 983 i 1286 4 ZIF XBLISS (BLISS32) ‘ 
> 984 1583 4 XTHEN | 
; 985 1584 4 DESC_ADDR = . 
; «986 1585 4 EDTSSCLS FI (hiner tit, EDTS$Z_SYS_ALTRAB, 0, .DESC_ADDR, IO_STS, IO_STV); | 
; 987 1586 4 ERROR = SHRS. CLO OSEIN; 
: 988 U 1587 4 XELSE 
; 989 u 1588 4 IO_STS = EDTSSCLS_FI (EDT$$Z_SYS_ALTRAB, 0); 
: 990 1589 4 &FI 
: 991 1590 4 
PF 236 1591 ; END; 
; 99 1592 
: 994 1593 3 CEDTSK_OUTPUT_FILE, EDTSK_WRITE_FILE) : ! close an output file 
: 995 1594 4 BEGIN 
: 996 1595 4 | 
; 997 1596 4 LOCAL | 
: 998 1597 4 FORCE _MAXV; 
3; 999 1598 4 
: Hs 12 2 IF (..FILESTRM EQL EDTSK_OUTPUT_FILE) THEN FORCE_MAXV = 1 ELSE FORCE_MAXV = 0; | 
: 100 L 1601 4 ZIF ZBLISS (BLISS32) 
: 100 1986 4 XTHEN 
: 1004 1605 4 DESC_ADDR = ALT_DESC; 
3 1005 1604 4 ERROR = SHR$_CLOSEOUT; | 
: 1008 1692 2 ' EDISSCLS Fl % but mide EDTS$Z_SYS_ALTRAB, 0, .DESC_ADDR, I0_STS, 10_STV); 
3 + 
; 1008 1809 4 | Check the status from the close 
: 1009 1608 4 i- 
; 1010 1609 4 
3; 1011 1610 5§ IF (,10_STS) 
3 a 1611 4 THEN 
: 101 1618 4 
3 1014 161 5 IF (,DISK_FI) 


13 
EDTSFILEIO 10 = Central file 1/0 module 1b-52 -1984 00:21:05 VAX-11 Bliss-32 V4.0-74 P 0 = 
04-00 SFILEIO'- Central EDT file 1/0 routine 137388-1 382 93:33:08 DL aKSVMSMASTERSCEDT SRCTFILEIO.BLI;1 oor 
4 THEN 
BEGIN 
EDISSREN EL (ALT ODESC, OUT DESC, .FORCEMAXY, 10.STS, 10, STV) 
STRING DESC (FILE_DESC, OUT_DESC CDSCSWILENGTHJ,~.OUT_DESC CDSCSA_POINTER)); 
ELSE 


STRING_DESC (FILE_DESC, ALT_DESC CDSC$W_LENGTH], .ALT_DESC CDSCSA_POINTER]); 
ZELSE 


IF (.DISK_FI NEQ DISK_FILE_RSTS) THEN IO_STS = EDTSSCLS_FI (EDT$$Z_SYS_ALTRAB, 0); 


14 
! If this is a disk file and we had a successful close, then rename the 
temp file to the name originally given 


IF ((.10_STS) AND (.DISK_FI EQL DISK_FILE_YES)) 
10_STS = EDT$SREN_FI (EDT$$Z_SYS_ALTRAB, .OUT_DESC CDSCS$A_POINTER), 


-OUT_DESC COSC$W_LENGTHJ, .FORCE_MAXV) 


te 
If this is a RSTS disk file then do a rename of any currently existing 
files with the originally given name to the same name with a .BAK 
extension and close the tentative output file making it permanent 
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IF (.DISK_FI EQL DISK_FILE_RSTS) 
THEN 


BEGIN 
10_STS = EDTSSREN_FI (EDT$$7_Svs ALTRAB, .OUT_DESC CDSCS$A_POINTER], 
-OUT_DESC COSCSW_LENGTHJ> .FORCE_MAXV); 


IF (.10_STS) THEN IO_STS = EDTSSCLS_FI (EDT$$Z_SYS_ALTRAB, 0); 
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re: | 
65 END; 
65 
65 2FI 
65 
rt: END; 
65 CEDTSK_JOURNAL_FILE) : ! close the journal file | 

0 657 BEGIN 

05 658 

060 L 1659 ZIF ZBLISS (BLISS32) 

061 660 4 ZTHEN 

Oog 661 DESC_ADDR = JOU_DESC; 

06 66¢ ERROR = SHR$ CLOSEOUT; | 

064 66 EDTSSCLS_FI T.JOU_IFI, EDTS$Z_SYS_JOURAB, 0, .DESC_ADDR, IO_STS, I0_STV); 

065 U 1664 ZELSE 

066 U 1665 IO_STS = EDTSSCLS_FI (EDTS$Z_SYS_JOURAB, 0); 

pot 006 TFI 

8 66 

069 668 END; 

070 66? 

071 670 CINRANGE, OUTRANGE) : 


Dd 13 | 
EDTSFILEIO FILEIO = Central file 1/0 module 16-Sep-1984 00:21:05  VAX=11 BLiss-32_V4.0-74 Page 21. 
v04=000 EDTSFILEIO™= Central €D1 f 71-170 rout ine 128-1984 9:34:08 DT eKSUMGMASTERSCEDT. SRCIFILEIO.BLI;1 ~ 3 
: 1078 1671 ASSERT (0); | ; 
We 18h “ 3 
; 1075 L 1674 3 XIF XBLISS (BLISS32) 
wie ie pie 7 
; 1078 167 i Check the status from either the close or the rename of output files ; 
Ae 1B gE fa! 
; 1081 1680 4 IF ( NOT .10_STS) | ; 
: 1083 168¢ SIGNAL STOP (.ERROR + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, .DESC_ADOR, | ; 
: 1086 1685 STRSFREE1_DX (.DESC_ADDR); | ; 
Bf he teal 
; 1089 1688 RETURN (.10_STS); | ; 
<n: “ cy 
: 109 1691 CEDTSK CLOSE_DEL] : : 
: 109 1698 BEGIN : 
: 1095 1694 LOCAL 
; 1096 1695 3 DESC_ADDR; : 
: 1098 1697 3 CASE ..FILESTRM FROM EDTSK_JOURNAL_FILE TO EDTSK_WRITE_FILE OF | ; 
W188 - wat 
: 1101 1900 3 CEDTSK_OUTPUT_FILE, EDTSK_WRITE_FILE] : | : 
HR HB me 2 
; 1104 L 1708 4 X1F XBLISS (BLISS32) | ; 
: 1106 1705 4 DESC_ADDR = ALT DESC; | ; 
: 1107 4) ee EDTSSCLS_FI (.O0T_IFL, EDTS$Z_SYS_ALTRAB, 1, ALT_DESC, IO_STS, 10_STV); ; 
: 1109 U 1708 4 10_STS = EDTSSCLS_FI (EDTS$Z_SYS_ALTRAB, 1); | ; 
: 1110 1709 4 FI | é 
: 1111 1710 4 : 
We TMG * oi 
1114 1718 CEDTSK JOURNAL_FILE : | ; 
WB Une se Pact 
; Wiz L 1716 4 IF RBLISS (BLISS32) | : 
; 1119 1718 4 DESC_ADDR = JOU_DESC; | ; 
: 1120 it Sona EDTSSCLS_FI (.JOU_IFL, EDTS$Z_SYS_JOURAB, 2, JOU_DESC, I0_STS, 10_STV); | 
:11 3 Uist 10_STS = EDTSSCLS_F1 (EDT$$Z_SYS_JOURAB, 2); | 
: 11 172 4 FI | 
3 1126 17 4 
Me Bs a 
711 5 1766 CINRANGE, OUTRANGE) : 
: 1128 172 ASSERT (0); 


—<———-_$_ . . . 


| 
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EDTSFILEIO FILEIO = Central file 1/0 module 1b-Sep-1 00:21:05  VAX=11 Bliss-32 Vv e 22 
Oat 000 ED TSF ILELO’ Central EDT file 1/0 routine 1a-Sep- 1984 09: $3: 6  DISKSVMSMASTER: chor OSRC SF ILELO. BLI;1 is (3 
oh re sn | 
; L L L 
1131 1730 3 XIF XBLISS (BLISS32) 
: 1138 fe) XTHEN 
F i 4 7 5 4 LF ‘ NOT .10_STS) | 
: 1136 1735 SIGNAL STOP (SHRS CLOSEOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 1, 
; 1} i § -DESC_A -TO_STS, .10_STV); 
: 1139 1738 STRSFREE1_DX {sane seen 
Bi as lh Be 
; RETURN (.10_STS); 
114 1741 ETURN (.1 
Me US 
> 1145 1744 CINRANGE, OUTRANGE) : 
> 1146 1745 ASSERT (0); 
: Hee 1543 
> 1149 1748 : ASSERT (0); 
> 1150 1749 RETURN (0): 
> 1151 1750 1 END; ! of routine EDTSFILEIO 
.TITLE EDTSFILEIO FILEIO - Central file 1/0 module 
“IDENT \V04-000\ 
.PSECT _EDTSDATA,NOEXE, PIC,2 
0000 00000 cmMD_DESC: 
.WORD 0 : 
02 3 00002 BYTE 14, 2 : 
00000000 00004 LONG 0 ; 
0000 00008 you_DESC 
-WORD O 5 
02 OF 0000A “BYTE 14, 2 F 
00000000 0000¢ -LONG 0 ; 
0000 00010 INP_DESC: | 
.WORD 0 : 
92 0 0012 “BYTE 14, 2 ; | 
000000 0014 “LONG 0 : 
0000 00018 ALT_DESC 
WORD : : | 
02 O& OO01A “BYTE 14, 2 : | 
00000000 0001C¢ LONG 0 : 
0000 00020 ouT_pESC 
.WORD 0 : 
92 3 0022 “BYTE 14, 2 ; 
000000 0024 LONG 0 : 
0028 INP_NAME 
.BLKB 256 
00128 INP_NAME_LEN: | 
TBLK | 


B 4 
3 OUT_IFI:.BLKB 4 | 
our th: -BLKB 4 | 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se ae 


om 


EDTSFILEIO FILEIO - 
vO4~000 DTS ILEL 


1 
ntral file 1/0 module 16=$ 
14-5 


- Central EDT file 1/0 routine 
o138 I 
1 f 1:.BLKB 
014 I: 


: -BLKB 
00000000 00144 FLUSA_COUNTER: 
00148 INCL_VFC: 
.BLKB 
0014C INPUT_VFC: 
.BLK 
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VAX-11 Bliss-32 Wee shes 
DISKSVMSMASTER:CEDT.SRCJFILEIO.BLI;1 


one 
— sz 
“ov 


IF 
f 
A. 


+ fF O&O HSS 


-PSECT _EDTSCODE,NOWRT, SHR, 
50 4D 54 2€ 00000 P.AAA: .ASCII \.TMP\ 


EDTSK_OPEN_INPUT== 1 
EDT$K-OPEN-OUTPUT_SEQ== 


EDTSK_OPEN_OUTPUT_NOSEQ== 
EDTSK_OPEN_IN_OUT== 4 
DIS$K-GET== 


PIC,2 


EDTS 5 
EDTS$K_PUT== 6 
EDT$K-CLOSE_DEL== 7 
EDT$K~CLOSE== a 
EDT$K~ COMMAND _FILE==1 
EDT$K-INPUT FILE== 
EDTSK_INCLUDE_FILE== 
EDT$K~ JOURNAL ~FILE== 
EDT$K-OUTPUT FILE== 5 
EDTSK_WRITE FILE== 6 
.EXTRN EDTSSPAR_FNAME, EDTSSCNV_UPC 
EDTSSREN_FI, EDTSSFLUSH_OBUF 
SSOPN~IF [DEF 
SOPN~OF IDEF 
SCLS"FI, EDTSSRD_IFI 
$WR_OFI, STRSFREE1_DXx 
SOPR_INOUT, STRSCOPY Dx 
COPY-R, EDT$$Z_SYS_PRIRAB 
$2_SYS_JOURAB 
$2~SYS~CMDRAB 
$2-SYS"ALTRAB 
_IAPFICOPN, EDTS_FIL 
“INTERERR, EDTS_COMFILNEX 
“COMFILNOP, EDTS_NOJNLF IL 
“INPFILNEX, EDTS"OUTFILCRE 
NONSTDFIL, EDTSSINTER_ERR 


SYS_ALTRAB, R11 
OP. R10 

SC, RO 

P 

“AHS! R 

Ecope, #1, #7 
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Central file 1/0 module 16-Sep-1984 00:21:05 VAX=11 Bliss=-32 V4.0-74 Page 24. 
LEIO = Central EDT file 1/0 routine 14- aati 90:34:88 NTEKSVMEHASTERSCEDT SRCTFILEIO.BL1;1 . aH 
| 

025F 125 125 12 0027 1$: .WORD 2$-1$,- F ; 

$08 ued 346 0986 0003 i ie : : 

15$-1$.- : : 

g8$-1$.- ; | ; 

$-1$,- P e 

41$-1$.- : | ; 

tae : ; 

1$-1$ : | ; 

11 00037 BRB 4$ + 1745) : 

08 AE 04 00039 28: CLRL_ = NONSTD + 1019 : 

3 Qi 08 BC CF 0003C CASEL @FILESTRM, #1, #2 + 1021 ; 

00¢ 005¢ 0009 0041 3$: «WORD 35° $,- : : 

125-3 : : 

0289 31 00047 4$: BRW 32$ + 1140 : 

08 AE 9F 0004, SS: PUSHAB NONSTD + 1029 : 

08 AE 9F 00040 PUSHAB VFC : ; 

14 AE 9F 00050 PUSHAB 10_STV Cs 

1C «AE OF 00053 PUSHAB 10ST : ; 

7E p4 00056 L =(SP) : | : 

7E 62 3C 00058 MOVZWL (R2), =(SP) + 1030) ; 

04 Ade DD 00058 L -4(R25 + 1029 ; 

56 DD 0005E PUSHL R6 : ; 

000000006 00 9F 00060 PUSHAB EDT$$Z_SYS_CMDRAB : ; 

000000006 00 09 FB 00066 CALLS #9, EDTSSOPN_IFIDEF : ; 

0124 C9 50 DO 00060 MOVL RO, CMD_IFI ; : 

13 12 00072 BNEQ 6$ + 1035 : 

OC AE 0D 00074 PUSHL 10_STV + 1041 ; 

14 AE DD 00077 PUSHL 107STS : ; 

56 DD O007A PUSHL R6 + 1040 : 

01 DD 0007¢ PUSHL : ; 

0085109¢ 8F DD OO07E PUSHL #8720540 : : 

A 05 FB 00084 CALLS #5, LIBS$STOP : ; 

08 08 AE €9 00087 6S: BLBC -NONSTD, 7$ + 1047 ; 

10 AE 000000006 8F »bO 00088 MOVL § #EDTS$_NONSTDFIL, I0_STS : ; 

04 A6 DD 00093 78: PUSHL  4(R6) : 1052 3 

56 DD 00096 PUSHL R6 : ; 

E8 A9 9F 00098 PUSHAB CMD_DESC : ; 

63 11 90098 BRB 11$ : ; 

08 AE 9F 0009D 8$: PUSHAB NONSTD : 1067 : 

0134 C9 9F OOOAD PUSHAB INPUT VFC ; : 

14 AE 9F OO0A4 PUSHAB 10_ : ; 

1C AE 9F QOOA7 PUSHAB IO07STS ; : 

7 b4 0 AA CLRL = : : 

7E 62 3C OOOAC MOVZWL (R2), =(SP) + 1068 | : 

04 Ad dD OOOAE PUSHL  4(R25 + 1067 : 

36 DD 000B2 PUSHL R6 : : 

000000006 00 9F 00084 PUSHAB EDT$$Z_SYS_PRIRAB : 3 

09 FB 6 BA CALLS #9, EDTSSOPN_IFIDEF : ; 

0 C1 MOVL RO, INP_IFI ; : 

66 (6 MOVZWL (RO), IRP_NAME_LEN ; 107 ; 

¢ 00c MOVCS INP_NAME_CEN, 34(R6), INP_NAME ; 107 3 

9 : p st P7IFI > 1078 : 

AE bb o00Re 1081 

56 DD O00DF > 1080 : 
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04200 EDTSFILELO = Central EDT file 1/0 routine 132388 -1 382 93:33:88 DISKSVMSMASTER:CEDT.SRCIFILEIO.BL1;1 © SF 
50 B 9 1F MOVAB EDT$$Z_SYS_ALTRAB, RAB : 1422 
E ij 2 BRB OS tiie, : 1401 
04 3 ps 4 38$ CLRL_ VF : 1427 
53 FO AD 9E 7 MOVAB JOU_DESC, DESC_ADDR : 1428 
50 000000006 00 9€ MOVAB EDTS$Z_SYS_JOURAB, RAB + 1429 
04 AE pd 39$ PUSHL VFC : 1438 
19 AE OF PUSHAB 10_STV : 
1 Ag oF 8 PUSHAB 197815 : 
3 DD 0 B PUSHL R : 
0041 8F 6B D PUSHR  #*M<RO,R6> : 
000000006 90 6 FB 00341 CALLS #6, EDTSSRD_IFI : 
4 D 0 48 MOVE = RO, STATUS : | 
72 4 € 48 BLBS STATUS, 47$ > 1440 
0001827A_ BF 10 AE DI 0 cmPL 19, STS. #98938 > 1443 
0222 31 0035 BRW 76$ ; 
OC AE dD 00358 40$:  PUSHL 10_STV > 1448 
14 AE DD 0035€ PUSHL I0-STS > 1447 
53 DD 00361 PUSHL DESC_ADDR : 
01 DD 00363 PUSHL #1 : 
00851084 8F DD 00365 PUSHL #8720564 ; 
50 11 00368 BRB 46$ ; 
02 04 08 BC CF 0036D 41$:  CASEL @FILESTRM, #4, #2 $1473 
000F 000F 0017 00372 42$: WORD 445-4 $.- ; 
43$-42$ 3 
000000006 00 00 FB 00378 CALLS #0, EDTSSINTER_ERR : 1489 
13° 11 0037F BRB 45$ : 1473 
55 69 9E 00381 43$:  MOVAB ALT_DESC, DESC_ADDR > 1478 
53 68 9E 00384 MOVAB EDTS$Z_SYS_ALTRAB, RAB : 1479 
0B 11 00387 BRB 45$ > 1473 
55 FO AD YE 00389 448: MOVAB JOU_DESC, DESC_ADDR : 1484 
53 000000006 00 9€ 0038D MOVAB EDTS$2_SYS_JOURAB, RAB : 1485 
OC AE OF 00394 45$:  PUSHAB IO_STV > 1494 
14 AE 9F 00397 PUSHAB I0-STS ; 
52 DD 0039A PUSHL Re ; 
0048 8F BB 0039C PUSHR #*M<R3,R6> : 
000000006 00 05 : 99 AO CALLS #5, EDTS$WR_OFI ; 
54 0 DO 003A7 MOVL RO, STATUS ; 
15 54 O«€ 00 AA LBS STATUS, 48S : 1500 
OC AE DD O03AD PUSHL _STV : 1506 
14 AE DD 038 PUSHL ST : 1505 
55 DD 0038 PUSHL DESC_ADDR ; | 
4 DD 6 B PUSHL # ; | 
00851004 8F DD 0038 PUSHL #8720596 ; | 
6A 95 FB OO3BD 46$: CALLS #5, LIBS$STOP ; | 
9 11 003C0 47$: BRB ; | 
04 08 8 p| C2 48$: CMPL FILESTRM, #4 ; 1511 | 
C BNEQ : 
12¢ C9 D C INCL  FLUSH_COUNTER > 1514) 
05 012¢ c9 D CC CMPL ELUSH_COUNTER, #5 > 1516 | 
8 12 00301 BNEQ 50$ 3 | 
OC AE 9F 00303 PUSHAB 10 STV ; 1522 
DD D6 PUSHL RAB ; | 
000000006 90 ; D CALLS #2, EDTSSFLUSH_OBUF ; 
4 D OF MOVL RO, STATU ; 
12 4 €8 003€2 BLBS = STATUS, 49$ 3 1524 | 
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Oat 000 EDT Tate; - Central EDT file 1/0 routine 14- lene 198 99: $3: §% DISKSVMSMASTER: CEDT.SRCJFILEIO.BLI;1 . a) 
13 10 AE €8 0055D 73$: BLBS 10_STS, 75$ 3 1733) 
OC AE DD 00561 PUSHL IO0_STV : 1736) 
14 ag DD 00564 PUSHL I10-STS : 
52 0D 00567 PUSHL DESC_ADDR : 
01 DD 00569 PUSHL #1 3; 1735) 
0085105C 8F ODD 0368 PUSHL #9720476 3 
A 0S FB 00571 74$: CALLS #5, LIBSSTOP : 
52 DD 00574 75$ PUSHL E DDR 3: 1738) 
000000006 00 01 FB 0576 CALLS #1, STRSFREE1_DX ; 
50 10 AE 0 9370 76$ Bove 10_STS, RO 3 1741 
000000006 00 98 FB b2hs 77$: CALLS #0, EDTSSINTER_ERR : 1748 | 
D4 005 CLRL RO + 1749 
04 00588 RET : 1750 
; Routine Size: 1420 bytes, Routine Base: _EDTSCODE + 0004 


3 1128 1751 1 
g 193 1752 1 !<BLF/PAGE> 


] 
14 | 
EDTSFILEIO FILEIO = Central file 1/0 module 1b-Se -1 VAX-11 Bliss-32 V e 32 
FO ue000 EDTEFILELO’S contrat EDT tite 170 routine ea een TFRs 90:3h ey He MGMASTER CED SaCSFILEIO.eLI;1 (a5 | 
: 
: 1155 1753 1 END ! of module EDTSFILEIO : 
: 1186 1736 1 ore | ‘ 
11 1755 0 ELUDOM é 
ae 
3 
.EXTRN LIBSSTOP | ; 
PSECT SUMMARY | ; 
Name Bytes Attributes | : 
_EDTSDATA 336 NOVEC, ouRt RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) | 
“EDTSCODE 1424 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
amt * wee 0 NOVEC, NOWRT. “NORD ;NOEXE;NOSHR, LCL, ABS. CON,NOPIC.ALIGN(O) | 
| 
| 
: Library Statistics 
; I i lee | 0 pl a Syabelg ecoccece Pages Processing | 
$ File Total Loaded Percent Mapped Time } 
: _$255$DUA28: = PEDT. SRCJEDT -L 3251 377 3 0 40 00:00.2 | 
> 7$255$DUA28:CEDT SRCIPSECTS.1.32:1 2 1 50 7 00:00.1 
: 7$255$pUA28:CSYSLIBISTARLET.L 32:1 9776 14 0 581 00:04.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:F ILEIO/OBJ=OBJ$:FILEIO MSRC$:FILEIO.BLI /UPDATE=(ENHS$:F ILEIO) 


; Size: 1420 code + 340 data bytes 
; Run Time: 01:06.6 
; Elapsed Time: ot isy- 8 

; Lines/CPU Min: 
; Lexemes/CPU-Min: 1398 

4 poner Used: 357 pages 
; Compilation Complete 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


